home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / graphics / gnuplot / contrib / green / greenps.macros < prev   
Internet Message Format  |  1992-11-05  |  16KB
  1. From oliveria%rootbeer.engin.umich.edu@srvr2.engin.umich.edu Mon Aug 17 13:18:10 1992
  2. Return-Path: <oliveria%rootbeer.engin.umich.edu@srvr2.engin.umich.edu>
  3. Received: from srvr2.engin.umich.edu by ra-next.arc.nasa.gov (NeXT-1.0 (From Sendmail 5.52)/NeXT-1.0)
  4.     id AA05449; Mon, 17 Aug 92 13:18:05 PDT
  5. Received: from rootbeer.engin.umich.edu by srvr2.engin.umich.edu (5.64/1.35)
  6.     id AA12699; Mon, 17 Aug 92 16:31:22 -0400
  7. Received: by rootbeer.engin.umich.edu (5.64/1.35)
  8.     id 5a9eb2e98.00251f6; Mon, 17 Aug 92 16:31:19 -0400
  9. Date: Mon, 17 Aug 92 16:31:19 -0400
  10. From: Roque Donizete de Oliveira <oliveria@engin.umich.edu>
  11. Message-Id: <5a9eb2e98.00251f6@rootbeer.engin.umich.edu>
  12. To: woo@ra-next.arc.nasa.gov
  13. Subject: Re:  greek symbols in gnuplot
  14. Status: R
  15.  
  16. I include Martin Green's postscript macros for
  17. font mixing at the end of this message. It might
  18. be a good a idea to try to contact him to see if
  19. there is a newer version (perhaps easier to use and
  20. more similar to LaTeX usage, like using _ and ^).
  21.  
  22. I'm not sure what is best way of solving this problem.
  23. One could define in the gnudict prologue things like
  24.  
  25.  /\alpha {/Symbol findfont 200 scalefont setfont (a) } def
  26.  
  27. so that one could say (in gnuplot) 
  28.  
  29.                       set x label  "\alpha"
  30.  
  31. and get in the postscript file something like 
  32.  
  33.                       100 100 moveto \alpha show
  34.  
  35.  
  36. Now the Symbol font is active and something has to
  37. be done to get back the default font and font size
  38. (one could put everything with a gsave/grestore pair
  39. but then one would have to account for the stringwidth
  40. if doing mixed font stuff). And this doesn't even
  41. include subscripting/superscripting yet.
  42.  
  43. I like the ability to just use \alpha to get that
  44. symbol. Thus it would be nice to somehow modify
  45. Martin Green's macros to use shortnames like \perp
  46. instead of \136.
  47.  
  48. It should be relatively straightforward to use Martin Green's
  49. macros as is, if a new set of gnuplot commands, valid only
  50. for the postscript driver, were created. Like
  51.  
  52. set psxlabel "[string1 sups [string2 string3 subs [{PS S} string4 {PS H}]] string5]"
  53.  
  54. Perhaps a modifier could be added to the labelling commands.
  55. Like
  56.           set xlabel {"<label>"} {<xoff>}{,<yoff>} {ps}
  57.  
  58. in which case the "ps" would mean the label is to
  59. be passed AS IS to Martin Green's display operator. Thus
  60.           set xlabel "[{12 H} (M) subs [{8 S} (a)] (\(x\))]" ps
  61. would create the following postscript code:
  62.  
  63.    100 100 moveto % this varies, of course
  64.    [{12 H} (M) subs [{8 S} (a)] (\(x\))] display
  65.  
  66. and so we have the LaTeX equivalent of $M_{\alpha}(x)$. It
  67. isn't exactly the same for we would be using 12pt Helvetica
  68. to write the "M" and "(x)". I guess it is more like
  69.    M${}_{\alpha}$(x)
  70.  
  71. Anyway, here are the macros:
  72.  
  73.  
  74.  
  75. %
  76. % Procedures for string handling. 
  77. % 
  78. % From USENET posting in comp.lang.postscript by:
  79. % Martin Green                        UUCP     :  ..!torsqnt!ohrd!green
  80. % Ontario Hydro Research Division     Telephone:  (416)231-4111 Ext7060
  81. % 800 Kipling Ave
  82. % Toronto, Ontario, CANADA, M8Z5S4
  83. %
  84. % Copyright (C) 1990 Martin A. Green
  85. %
  86. % Last edited: Fri Nov  2 09:09:22 EST 1990
  87. %    
  88. % This program is free software; you can redistribute it and/or modify
  89. % it under the terms of the GNU General Public License as published by
  90. % the Free Software Foundation; either version 1, or (at your option)
  91. % any later version.
  92. %    
  93. % This program is distributed in the hope that it will be useful,
  94. % but WITHOUT ANY WARRANTY; without even the implied warranty of
  95. % MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  96. % GNU General Public License for more details.
  97. %    
  98. % You should have received a copy of the GNU General Public License
  99. % along with this program; if not, write to the Free Software
  100. % Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  101. %
  102. % ----------------------------------------------------------------------
  103. % Text manipulation functions including super- and sub-scripts,
  104. % multiple fonts and sizes, centering and right alignment, and
  105. % full justification.
  106. %
  107. % Example:
  108. %
  109. %   [string1 sups [string2 string3 subs string4] {font2} string5] display
  110. %
  111. % should print string1 with the current font, then go into superscript 
  112. % mode for string2 and string3, then print string4 as a subscript to 
  113. % string3, then return to the original font, followed by a change to font2,
  114. % and finally print string5.  The positioning and angle of the printed 
  115. % text are determined by the /textalign and /textangle variables.
  116. %
  117. % Font selection: To select Times-Roman 12 point font use: 12 R
  118. %
  119. % Additional notes & changes (C. Towne):
  120. %
  121. % 1.  In the above example, to change fonts in the middle of a display,
  122. %     but keep the same point size, do something like:
  123. %
  124. %        [string1 sups [string2 string3 subs [string4]] {PS S} string5] display
  125. %
  126. % 2.  To change fonts in the middle of a display, and change the point size,
  127. %     do:
  128. %
  129. %        [string1 sups [string2 string3 subs [string4]] {nn S} string5] display
  130. %
  131. %     where nn is the desired point size.
  132. %
  133. % 3.  To change fonts for a subscript (or superscript) from, say, Helvetica
  134. %     to Symbol, do:
  135. %     
  136. %        [string1 sups [string2 string3 subs [{PS S}string4{PS H}]] string5]
  137. %        display
  138. %
  139. % 4.  gsave & grestore added to displaywidth procedure.  Without it
  140. %     entire string would be displayed in last font used.
  141. %
  142. % 5.  The /textangle option apparently is missing.
  143. %
  144. % 6.  Stuff for centered symbols has been removed.
  145. %
  146. % 7.  Procedures displaybbox and displaybbox2 (similar to displaywidth and
  147. %     displaywidth2) added.
  148. %
  149. % 8.  Font names changed to same as those in troff, and added CB, CO, CD.
  150. %
  151. % 9.  Coding style changes made.
  152. %
  153.  
  154. % Font definitions
  155. /H  {dup /PS exch def
  156.      /Helvetica findfont exch scalefont setfont} def
  157. /HB {dup /PS exch def
  158.      /Helvetica-Bold findfont exch scalefont setfont} def
  159. /HO {dup /PS exch def 
  160.      /Helvetica-Oblique findfont exch scalefont setfont} def
  161. /HD {dup /PS exch def
  162.      /Helvetica-BoldOblique findfont exch scalefont setfont} def
  163. /R  {dup /PS exch def 
  164.      /Times-Roman findfont exch scalefont setfont} def
  165. /B  {dup /PS exch def
  166.      /Times-Bold findfont exch scalefont setfont} def
  167. /I  {dup /PS exch def
  168.      /Times-Italic findfont exch scalefont setfont} def
  169. /BI {dup /PS exch def
  170.      /Times-BoldItalic findfont exch scalefont setfont} def
  171. /C  {dup /PS exch def 
  172.      /Courier findfont exch scalefont setfont} def
  173. /CB {dup /PS exch def 
  174.      /Courier-Bold findfont exch scalefont setfont} def
  175. /CO {dup /PS exch def 
  176.      /Courier-Oblique findfont exch scalefont setfont} def
  177. /CD {dup /PS exch def 
  178.      /Courier-BoldOblique findfont exch scalefont setfont} def
  179. /S  {dup /PS exch def 
  180.      /Symbol findfont exch scalefont setfont} def
  181.  
  182. /STRING (a) type cvlit def
  183. /ARRAY  [0] type cvlit def
  184. /LEFT  -1 def
  185. /CENTRE 0 def
  186. /RIGHT  1 def
  187. /CENTER CENTRE def
  188.  
  189. /exactwidth 0 def    % line added (CET)
  190. /textalign LEFT def    % line added (CET)
  191. /fontstore 5 array def
  192. /vshift    5 array def
  193. /fontlevel 0 def
  194.  
  195. /pushfont {
  196.    fontstore exch [ exch PS ] fontlevel exch put
  197.    /fontlevel fontlevel 1 add def
  198. } def
  199.  
  200. /popfont {
  201.    0 vshift fontlevel get neg rmoveto
  202.    vshift fontlevel 0 put
  203.    /fontlevel fontlevel 1 sub def
  204.    fontstore fontlevel get aload pop /PS exch def setfont
  205. } def
  206.  
  207. /sups {        % adjust position and reduce font size for superscripts
  208.    {currentfont dup pushfont .8 scalefont setfont
  209.    vshift fontlevel PS .4 mul put
  210.    0 PS .4 mul rmoveto
  211.    /PS PS .8 mul def}
  212. } def
  213.  
  214. /subs {        % adjust position and reduce font size for subscripts
  215.    {currentfont dup pushfont .8 scalefont setfont
  216.    vshift fontlevel PS -.3 mul put
  217.    0 PS -.3 mul rmoveto
  218.    /PS PS .8 mul def}
  219. } def
  220.  
  221. /isstring {    % return true if argument is a string
  222.    type cvlit STRING eq
  223. } def
  224.  
  225. /isarray {    % return true if argument is an array
  226.    type cvlit ARRAY eq 
  227. } def
  228.  
  229. %
  230. % compute width of complex text array
  231. %
  232.  
  233. /displaywidth {
  234.    gsave
  235.    /textwidth 0 def
  236.    /textheight PS def
  237.    /fontlevel 0 def
  238.    /displevel 0 def
  239.    {        % step through array elements
  240.       dup isstring {
  241.          stringwidth pop /textwidth exch textwidth add def
  242.          fontlevel displevel sub 1 eq {popfont} if
  243.       } {
  244.       dup xcheck {
  245.          exec
  246.       } {
  247.       dup isarray {
  248.          displaywidth2
  249.          fontlevel displevel sub 1 eq {popfont} if
  250.       } {    % error handler
  251.          pop
  252.       } ifelse } ifelse } ifelse
  253.    } forall
  254.    grestore
  255. } def
  256.  
  257. /displaywidth2 {
  258.    /displevel displevel 1 add def
  259.    {        % step through array elements
  260.          dup isstring {
  261.          stringwidth pop /textwidth exch textwidth add def
  262.          fontlevel displevel sub 1 eq {popfont} if
  263.       } {
  264.       dup xcheck {
  265.          exec
  266.       } {
  267.       dup isarray {
  268.          displaywidth2
  269.          fontlevel displevel sub 1 eq {popfont} if
  270.       } {    % error handler
  271.          pop
  272.       } ifelse } ifelse } ifelse
  273.    } forall
  274.    /displevel displevel 1 sub def
  275. } def
  276.  
  277. %
  278. % Compute bounding box of complex text array.
  279. %    llx = llx of first character
  280. %    urx = current x + width of complete complex text array - right side
  281. %          bearing of last character in last string.  Right side bearing =
  282. %          current x + character width - urx of character bbox.
  283. %    lly = min of lly's from each character
  284. %    ury = max of ury's from each character
  285. % Note that urx is recomputed for each string in complex text array.
  286. %
  287.  
  288. /displaybbox {
  289.    gsave
  290.  
  291.    % compute dimensions if required
  292.    currentpoint 3 -1 roll
  293.    /textwidth 0 def
  294.    exactwidth 0 ne textalign LEFT ne or
  295.       {dup displaywidth} if
  296.  
  297.    % adjust starting position and angle
  298.    3 1 roll moveto
  299.    textalign LEFT ne {textalign RIGHT eq { textwidth neg 0 rmoveto }
  300.                         {textwidth 2 div neg 0 rmoveto } ifelse } if
  301.  
  302.    % initialize some stuff
  303.    /fontlevel 0 def
  304.    /displevel 0 def
  305.    /tempstr 1 string def    % 1-char string for getting lly and ury
  306.    /charn 1 string def
  307.    /urx -10000 def        % bbox limits
  308.    /lly  10000 def
  309.    /ury -10000 def
  310.    /firstdone false def        % flag for "1st. char done?"
  311.  
  312.    % get width of complete complex text array (textwidth)
  313.    dup displaywidth
  314.  
  315.    % save current point
  316.    currentpoint /ycp exch def /xcp exch def
  317.  
  318.    % loop to step through all array elements
  319.    {
  320.  
  321.       % array element is a string
  322.       dup isstring {
  323.  
  324.          % get llx from bbox of first char
  325.          firstdone not {
  326.             dup             %stk: string string
  327.             gsave
  328.             0 1 getinterval        %stk: string char1
  329.             true charpath flattenpath
  330.             pathbbox pop pop pop    %stk: string llx
  331.             /llx exch def        %stk: string
  332.             /firstdone true def
  333.             grestore
  334.          } if
  335.  
  336.          % get urx from current x, width of complete array, and right side
  337.          % bearing of last character
  338.          dup                 %stk: string string
  339.          gsave
  340.          dup length 1 sub get        % define string containing last char
  341.          charn 0 3 -1 roll put        %stk: string
  342.          charn stringwidth pop        % get width of last char
  343.          /cwidth exch def
  344.          newpath            % get bbox of last char
  345.          xcp ycp moveto
  346.          charn true charpath flattenpath
  347.          pathbbox pop            %stk: string llx lly urx
  348.          cwidth xcp add exch sub    % define right side bearing of last char         
  349.          /rsb exch def pop pop         %stk: string
  350.          xcp textwidth add rsb sub    % get urx
  351.          /urx exch def
  352.          grestore
  353.  
  354.          % get lly and ury from bbox of each character
  355.          {                % loop over each character in string
  356.             gsave
  357.             tempstr 0 3 -1 roll        %stk: tempstr 0 char
  358.             put                % put character into tempstr
  359.             newpath            % get bbox of char
  360.             xcp ycp moveto
  361.             tempstr true charpath flattenpath
  362.             pathbbox            %stk: llx lly urx ury
  363.             ury amax1 /ury exch def    % get ury
  364.             exch            %stk: llx urx lly
  365.             lly amin1 /lly exch def    % get lly
  366.             pop pop            %stk:
  367.             grestore
  368.          } forall
  369.          fontlevel displevel sub 1 eq {popfont} if
  370.       } {
  371.  
  372.       % array element is executable
  373.       dup xcheck {
  374.          exec
  375.       } {
  376.  
  377.       % array element is an array
  378.       dup isarray {
  379.          displaybbox2
  380.          fontlevel displevel sub 1 eq {popfont} if
  381.  
  382.       % error
  383.       } {
  384.          pop
  385.       } ifelse } ifelse } ifelse
  386.    } forall
  387.    llx lly urx ury            %stk: llx lly urx ury
  388.    grestore
  389. } def
  390.  
  391. /displaybbox2 {
  392.    /displevel displevel 1 add def
  393.  
  394.    % loop to step through all array elements
  395.    {
  396.  
  397.       % array element is a string
  398.       dup isstring {
  399.  
  400.          % get llx from bbox of first char
  401.          firstdone not {
  402.             dup             %stk: string string
  403.             gsave
  404.             0 1 getinterval        %stk: string char1
  405.             true charpath flattenpath
  406.             pathbbox pop pop pop    %stk: string llx
  407.             /llx exch def        %stk: string
  408.             /firstdone true def
  409.             grestore
  410.          } if
  411.  
  412.          % get urx from current x, width of complete array, and right side
  413.          % bearing of last character
  414.          dup                 %stk: string string
  415.          gsave
  416.          dup length 1 sub get        % define string containing last char
  417.          charn 0 3 -1 roll put        %stk: string
  418.          charn stringwidth pop        % get width of last char
  419.          /cwidth exch def
  420.          newpath            % get bbox of last char
  421.          xcp ycp moveto
  422.          charn true charpath flattenpath
  423.          pathbbox pop            %stk: string llx lly urx
  424.          cwidth xcp add exch sub    % define right side bearing of last char         
  425.          /rsb exch def pop pop         %stk: string
  426.          xcp textwidth add rsb sub    % get urx
  427.          /urx exch def
  428.          grestore
  429.  
  430.          % get lly and ury from bbox of each character
  431.          {                % loop over each character in string
  432.             gsave
  433.             tempstr 0 3 -1 roll        %stk: tempstr 0 char
  434.             put                % put character into tempstr
  435.             newpath            % get bbox of char
  436.             xcp ycp moveto
  437.             tempstr true charpath flattenpath
  438.             pathbbox            %stk: llx lly urx ury
  439.             ury amax1 /ury exch def    % get ury
  440.             exch            %stk: llx urx lly
  441.             lly amin1 /lly exch def    % get lly
  442.             pop pop            %stk:
  443.             grestore
  444.          } forall
  445.          fontlevel displevel sub 1 eq {popfont} if
  446.       } {
  447.  
  448.       % array element is executable
  449.       dup xcheck {
  450.          exec
  451.       } {
  452.  
  453.       % array element is an array
  454.       dup isarray {
  455.          displaybbox2
  456.          fontlevel displevel sub 1 eq {popfont} if
  457.  
  458.       % error
  459.       } {
  460.          pop
  461.       } ifelse } ifelse } ifelse
  462.    } forall
  463.    /displevel displevel 1 sub def
  464. } def
  465.  
  466. %
  467. % display complex text array
  468. %
  469.  
  470. /display {
  471.    currentpoint 3 -1 roll
  472.    /textwidth 0 def
  473.    exactwidth 0 ne textalign LEFT ne or        % compute dimensions if required
  474.       {dup displaywidth} if
  475.    % adjust starting position and angle
  476.    3 1 roll moveto
  477.    textalign LEFT ne {textalign RIGHT eq { textwidth neg 0 rmoveto }
  478.                         {textwidth 2 div neg 0 rmoveto } ifelse } if
  479.    % print text
  480.    /fontlevel 0 def
  481.    /displevel 0 def
  482.    {        % step through array elements
  483.       dup isstring {
  484.          show
  485.          fontlevel displevel sub 1 eq {popfont} if
  486.       } {
  487.       dup xcheck {
  488.          exec
  489.       } {
  490.       dup isarray {
  491.          display2
  492.          fontlevel displevel sub 1 eq {popfont} if
  493.       } {    % error handler
  494.          pop
  495.       } ifelse } ifelse } ifelse
  496.    } forall
  497. } def
  498.  
  499. /display2 {
  500.    /displevel displevel 1 add def
  501.    {        % step through array elements
  502.       dup isstring {
  503.          show
  504.          fontlevel displevel sub 1 eq {popfont} if
  505.       } {
  506.       dup xcheck {
  507.          exec
  508.       } {
  509.       dup isarray {
  510.          display2
  511.          fontlevel displevel sub 1 eq {popfont} if
  512.       } {    % error handler
  513.          pop
  514.       } ifelse } ifelse } ifelse
  515.    } forall
  516.    /displevel displevel 1 sub def
  517. } def
  518.  
  519.